program hello;
var	s:string;
	i,j,start:integer;

begin
s:='delete characters, enclosed in {curly brackets} and leave the rest';
writeln(s);
start:=0;j:=0;

repeat
inc(start);
until s[start]='{';

inc(start);
i:=start;

repeat
delete(s,start,1);
until s[i]='}';

writeln(s);
end.
